#' Wrapper aroung dplyr left_join with warning for inserted rows
#'
#'
#' @export
left_join_ <- function(...) {
    dots <- list(...)
    df <- dplyr::left_join(...)
    if (nrow(df) > nrow(dots[[1]]))
        warn(as.character(nrow(df) - nrow(dots[[1]])) %^%
        " rows were inserted by left_join!")
    df
}


#' Wrapper around View with message for zero rows
#'
#' @export
view <- function(df) {
    if (nrow(df) == 0)
        return(message("The output has zero rows."))
    View(df)
}
